home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / roulette.sha < prev    next >
Text File  |  1994-03-01  |  483b  |  8 lines
  1. 1 REM ROULETTE
  2. 2 REM par PIELB
  3. 3 REM distribue par W-TEL
  4. 4 REM (16) 62 93 74 05
  5. 5 REM BANQUE DE DONNEES CASIO
  6. 10 CLEAR :A=INT(3*(RAN#*36)):IF FRAC(A/3)>0 THEN 10 ELSE CLS:N$="00/01/02/03/04/05/06/07/08/09/10/11/12/13/14/15/16/17/18/19/20/21/22/23/24/25/26/27/28/29/30/31/32/33/34/35/36/":X=-500:LOCATE 15,1:PRINT CHR$(227);:N$=N$+N$
  7. 20 X=X+20:FOR I=0 TO X:NEXT :IF X=300 THEN BEEP1:STOP:GOTO 10 ELSE LOCATE 5,0:PRINT MID$(N$,A,22);:N$=RIGHT$(N$,LEN(N$)-3)+LEFT$(N$,3):GOTO 20
  8.